home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / arexx / gwrapper30.lha / FinalWrapper3_0 / RemFinalWrapper.install < prev    next >
Encoding:
Text File  |  1995-01-29  |  1.9 KB  |  53 lines
  1. ; $VER: RemFinalWrapper.install 3.0 (20.01.95) by NDY's
  2. (PROCEDURE del
  3.   (IF (EXISTS file (NOREQ)) (DELETE file))
  4. )
  5.  
  6.  
  7. (IF (= @language "deutsch")
  8.   (
  9.     (SET ok "FinalWrapper wirklich entfernen?")
  10.     (SET macro "Wählen Sie Ihr Final Writer Makroverzeichnis:")
  11.     (SET delhelp "FinalWrapper wird mit allen\nzugehörigen Dateien entfernt:\n\nFinalWrapper.rexx\nFW_#?.rexx\nENVARC:FinalWrapper\nHELP:deutsch/FinalWrapperSmallD.Guide")
  12.     (SET manual "FinalWrapperSmallD.Guide")
  13.     (SET nosuchdir "Verzeichnis nicht gefunden:")
  14.     (SET no "Nein")
  15.     (SET yes "Ja")
  16.     (SET done "FinalWrapper erfolgreich deinstalliert!")
  17.   )
  18.   (
  19.     (SET ok "Really remove FinalWrapper?")
  20.     (SET macro "Choose your Final Writer macro directory:")
  21.     (SET delhelp "FinalWrapper will be removed\nincluding all related files:\n\nFinalWrapper.rexx\nFW_#?.rexx\nENVARC:FinalWrapper\nHELP:english/FinalWrapperSmall.Guide")
  22.     (SET nosuchdir "Directory not found:")
  23.     (SET manual "FinalWrapperSmall.Guide")
  24.     (SET no "No")
  25.     (SET yes "Yes")
  26.     (SET done "FinalWrapper successfully deinstalled!")
  27.   )
  28. )
  29. (SET @default-dest (TACKON @default-dest "FinalWriter/FWMacros"))
  30. (IF (EXISTS "ENV:FinalWrapper/FWPath" (NOREQ))
  31.   (
  32.     (SET path (GETENV "FinalWrapper/FWPath"))
  33.     (IF (= (ASKBOOL (PROMPT ok) (HELP delhelp) (DEFAULT 1) (CHOICES (CAT no yes))) 0) (EXIT))
  34.   )
  35.   (
  36.     (SET path (ASKDIR (PROMPT macro) (DEFAULT @default-dest) (HELP delhelp)))
  37.   )
  38. )
  39. (IF (NOT (EXISTS path (NOREQ))) (EXIT nosuchdir path))
  40. (SET file (TACKON path "FinalWrapper.rexx")) (del)
  41. (FOREACH path "FW_#?.rexx"
  42.   ((SET file (TACKON path @each-name)) (del))
  43. )
  44. (SET file (TACKON (TACKON "HELP:" @language) manual)) (del)
  45. (SET path "ENVARC:FinalWrapper")
  46. (FOREACH path "#?"
  47.   ((SET file (TACKON path @each-name)) (del))
  48. )
  49. (SET file "ENVARC:FinalWrapper") (del)
  50. (SET file "ENVARC:FinalWrapper.def") (del)
  51. (SET file "ENVARC:Locale") (del)
  52. (EXIT done)
  53.